1 IFPEEK(50307)=120THENPOKE50257,16
1000 POKE53248+33,0:POKE53248+32,0
1010 PRINT"[147]"CHR$(142)CHR$(8)
1020 PRINTTAB(13)"[158][213][195][195][195][195][195][195][195][195][195][195][195][195][201]"
1030 PRINTTAB(13)"[221][156]CAVE CLIMBER[158][221]"
1040 PRINTTAB(13)"[202][195][195][195][195][195][195][195][195][195][195][195][195][203]"
1050 PRINTTAB(7)"[159]    BY THORSTEN LANGE     "
1060 PRINTTAB(14)"[129]AUS INPUT 64"
1065 PRINTTAB(13)"-1-[146] [154]ANLEITUNG"
1067 PRINTTAB(13)"-2-[146] [154]SPIELSTART"
1070 PRINTTAB(14)"IHRE WAHL ? ";
1080 POKE204,0:POKE198,0
1100 GET A$:IFA$<>"1"ANDA$<>"2"THEN1100
1110 IF PEEK(207)THEN1110
1120 POKE204,1:PRINTA$
1130 IF A$="2"THEN 5000
2000 PRINT"[147]"
2010 PRINT"[211]PIELZIEL :"
2020 PRINT"[154][211]IE MUESSEN ALLE GOLDENEN [194]AELLE EINSAM-";
2030 PRINT"MELN UND DANN DEN [193]USGANG AM OBEREN"
2040 PRINT"[194]ILDSCHIRMRAND ERREICHEN BEVOR [211]IE KEINE";
2050 PRINT"[203]RAFT MEHR HABEN."
2060 PRINT"[196]ABEI MUESSEN [211]IE [214]OEGELN, [197]IERN, [209]UARKS";
2070 PRINT"UND DEN [200]OEHLENBEWOHNERN AUSWEICHEN. "
2100 GOSUB10000
3000 PRINT"[147][211]PIELSTEUERUNG :"
3010 PRINT"[154][199]ESTEUERT WIRD [201]HRE [198]IGUR MIT EINEM"
3020 PRINT"[202]OYSTICK IN [208]ORT 2 ODER MIT DER [212]ASTATUR"
3030 PRINT"[212]ASTATURBELEGUNG :":PRINT
3040 PRINT"';'     = RECHTS"
3050 PRINT"':'     = LINKS"
3060 PRINT"'[200]'     = OBEN"
3070 PRINT"'[206]'     = UNTEN
3080 [153]"'(null)(null)ATNLENVAL' = ASCEUERKNOPF"
3499 [141]10000
3500 [153]"LOADASCUNKTIONEN :"
3510 [153]"CONTSTR$URCH DRUECKEN DER ASCEUERTASTE WIRD DAS"
3520 [153]"(null)AENNCHEN VON EINEM VALNERGIESCHILD VOR"
3530 [153]"DEN ATNNGREIFERN GESCHUETZT, WOBEI ABER"
3540 [153]"SEHR VIEL (null)RAFT VERBRAUCHT WIRD."
3550 [153]"(null)ENN (null)IE DEN MID$OYSTICK NACH OBEN DRUECKEN";
3560 [153]"WIRD EIN (null)EIL GESPANNT, FALLS DIESES AUF";
3570 [153]"FESTEN PEEKODEN TRIFFT. CHR$EHEN (null)IE NUN"
3580 [153]"DIREKT UNTER DAS (null)EIL UND DRUECKEN"
3590 [153]"NOCHMALS NACH OBEN, SO KOENNEN (null)IE NUN"
3600 [153]"AM (null)EIL ENTLANG HANGELN."
3610 [153]"STR$URCH DRUECKEN NACH UNTEN LAESST DAS"
3620 [153]"(null)AENNCHEN DAS (null)EILL WIEDER LOS."
3700 [153]:[153]"STR$URCH DRUECKEN VON ASC7WAIT KOENNEN (null)IE DAS"
3710 [153]"(null)PIEL UNTERBRECHEN; DURCH BETAETIGEN DES";
3720 [153]"VALNERGIESCHILDES WIEDER STARTEN."
3999 [141]10000
4000 [153]"LOADATNNMERKUNGEN :"
4010 [153]"CONT-DAS (null)EIL WIRD IMMER IN (null)AUFRICHTUNG"
4020 [153]" GESPANNT"
4030 [153]"-(null)IE HABEN NUR EIN (null)EIL => DAS ALTE WIRD";
4040 [153]" DESHALB WIEDER EINGEZOGEN"
4050 [153]"-DIE (null)IANEN KOENNEN NUR VON OBEN"
4060 [153]" ERREICHT WERDEN"
4070 [153]"-ES GIBT VIER VERSCHIEDENE (null)CREENS,WOBEI";
4080 [153]" DAS (null)PIEL BIS (null)EVEL 25 IMMER SCHWERER"
4090 [153]" WIRD. ( BISHERIGER (null)EKORD: (null)EVEL 11 )"
4100 [153]"-NACH JEDER ZWEITEN UEBERSTANDENEN (null)UNDE";
4110 [153]" ERHALTEN SIE EIN VALXTRALEBEN"
4120 [153]"-WENN (null)IE EINEN GOLDENEN PEEKALL AUFSAMMELN";
4130 [153]" BEKOMMEN (null)IE ETWAS VALNERGIE"
4200 [141]10000
4300 [137] 1000
5000 [153]"LOAD"[199](142)[199](8):[143] STARTEN
9999 [158] 4592
10000 [153]"SYS(null)EITER MIT (null)CMD";
10010 [151]204,0:[151]198,0
10020 [161]A$:[139]A$[179][177]"W"[167]10020
10040 [139][194](207)[167]10040
10050 [151]204,1:[142]
10060 [142]